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STRSLEFT tb-5e -1984 240:4 AX-11 Bliss-32 V4.0-742 P 1 
1er8e74982 Fbi28:38 «= HONEA Ok he§sF8 ves 95852, 29F 4) 
p 1 MODULE STRSLEFT ( ! Extract a substring from the left 
§ IDENT = '1-011° ! File: STRLEFT.B832 Edit: RKR1011 
5 de 
096 BEGIN 
0 ' 


Ru 
nkeges to start with STR JBS 04-JUN-1979 
STRSSCOPY. JBS Ver JUL=19 9 
- String cleanup. Change name to STR$. RW S1s0gt-?9 
1- - Change te new interlock macros. JBS 06-NOV-19 
1- - The new interlock macros cannot be used in routines called 

with a JSB instruction. JBS 15-NOV-1979 


1- § = Change Cinkoge end call to COPY routine. 15-Mar-79 
4 
5 


>; 4 ; 
$ 5 3 
@. } : 
: 3 B28 ! leueeuceeeencententennenteenenteeteerertetentrettntnntnetnenententnnsentnntns : 
3 '® * 3 
; 010 1 !* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
: 1 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . : 
; 1 B8t8 } i: ALL RIGHTS RESERVED. . : 
3; (14 0014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
: 15 0015 1 !* ONLY IN ACCORDANCE WITH TERMS OF SUCH LICENSE AND WITH THE * : 
: 16 Bot$ 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * . 
; 17 01 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ° 
: 18 B28 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
: 19 OO19 1 is TRANSFERRED. ‘ : 
oe oe ® eo 
: 3 0031 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ’ 
: ¢ 00 § 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; Z 88 Z : : CORPORATION. * : 
e a ® a 
: 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; 6 00 § 1 !'@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
i 3 $098 1 is : ; 

oy w Py 
: ; oe 2 1 PT TITTITITI LILI LILI LILLE LLL LLL LLL LTT iti iiiiiiitiitiiie $ 
° 1! $ 
; 1 0031 1 3 
; 2 0 ¢ 1 44 : 
3 ? he ! : FACILITY: String support Library : 
: 35 0035 1 | ABSTRACT: ; 
; 0036 1! 3 
ot a 0037 1! This module extracts a substring according to the ; 
: $8 0038 1! BASIC=PLUS-2 syntax. It finds the substring of a main strin 3 
3 9 0039 1! starting at the left end of the string (character position 1 : 
; 40 040 1! and continues through the nth character of the string. This : 
: 33 Boe) : substring is copied to the destination string. : 
; és 048 ! ENVIRONMENT: User mode, AST level or not or mixed ; 
> 45 5 1! AUTHOR: R. Will, CREATION DATE: 19-Feb-79 F 
; 046 1! 3 
: 4? { 1 | MODIFIED By: 3 
> (49 sii r Will, 19-Feb-79: VERSION 01 ; 
3 20 ? 1 ! 1-001 = Origina 3 
! 2) \ ‘ 
; 3 $ji : 
: & 4 1! : 
3 35 5 : ; 
. 8 e ii 
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3 i} ~B08 = string s speedup. unde edit 7, RW 7-Jan-19 

; saiag ath et date additional classes ° "esc criptors by 
; ee et N_ADOR to extract ength an data 

3 i ptor. Remove string interlock m code. 

; es 1 i a 0 - up £9 RKR 7-0CT-1981. 

; 64 4 1! li - see “srk cbPY eR R_RB to do the copy yee SSTRS poem 

: 65 5 ii instead of SSTRSCHECKSTATUS. R 18-NOV-198 

; 66 066 1 i- 

.. Cor 067 1 

; @& 068 1 !<BLF/PAGE> 
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! SWITCHES: 


SWITCHES ADDRESSING MODE 
(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES: 


REQUIRE 'RTLIN:STRLNK'; 


Use require file with string Linkage 
] 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
LEFT, ! Find the LEFT of a string, CALL 
STRSLEFT_R8& : STRSJSB_LEFT; ! Find the LEFT of a string,JSB 


; INCLUDE FILES: 


REQUIRE ‘RTLIN:RTLPSECT'; Declare PSECTS code 
REQUIRE ‘RTLIN:STRMACROS'; ! use string macros to code 
LIBRARY ‘RTLSTARLE'; 


STARLET Library for macros and symbl 


MACROS: 

NONE 

: EQUATED SYMBOLS: 
NONE 

: PSECT DECLARATIONS: 
DECLARE _PSECTS (STR); 
: OWN STORAGE: 

: NONE 

: EXTERNAL REFERENCES: 


cates, ROUT INE 
STRSCOPY_R_R8& : STRSJSB_COPY_R ; ! Routine to do the copying 


exTea, LITERAL 
STR$_NORMA ' successful completion 
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GLOBAL ROUTINE STRSLEFT ( extract the left substring 


DEST_DESC. ! Pointer to destination descriptor 
SRC_BESC, ! Pointer to source descriptor 
END_POS ! Last character to be included 


dz 
'44 


i FUNCTIONAL DESCRIPTION: 


This routine extracts — ghargetors starting at the leftmost 
character (character position 1) and continuing through the 
character position specified by the input and Copies hat 
substring to the destination string (by JSB to STRSCOPY_R_R8) 
according to the syntax of the class of the destination string. 
If the Weput character position is > the length of the input 
string, then the Lengsh of the input string is used. If the 
input character position is < 1, the destination becomes a null 


string. 
The call entry point executes a JSB to the JSB entry point. 
FORMAL PARAMETERS: 


PPS FWWNWIWIWInonororoponorononorn 


=O OD NAUE WIN OOD NA UE WN 9 ODOM EWN 0 ODNOAUE AR OV ONOUS WI O 


WWWAIWIAWI AA AW AWN AANWININ NAAN AWN 


WIN SO ODNAULS WN OO ODNAUES WN ODONOUSWH OO 


ANN NN NNN NA AOA AAAAAOAOUMINIIIUI BB BPP PANWrr 
SATSORANASSSISSAF 
Te ee ee ee ee ee eS SS 


Be Se Se Se Ge Ge Ge Se Ge Be Ge Ge Ge Se Fe Ge Fe Se FE Gse Ge Ge Fe Ge Fe Ge Gs Se Ge Ge Ge Se FH Be Se Se Se Se Se Se Se Se Se Se Se SF Se Se SeSse Se eeeseseteeee 
a a ee ee ee ee ee ce a ee ee ae a ce ee ce ee cee ee ce ce ee ee ea ee ee ee ed ed 
DEI) at at a et at kd dd 


i] 
' 
' 
1 
i 
i 
' 
1 
i 
i 
i 
' 
' " 
: DEST_DESC.wt.dx pointer to destination string descriptor 
4 ! SRC_BESC.rt.dx pointer to source string descriptor 
r END_POS.rl.r ast character position to include 
4 IMPLICIT INPUTS: 
3 i NONE 
35 ! 
32 IMPLICIT OUTPUTS: 
33 NONE 
33 COMPLETION CODES: 
$2 any of the codes returned by the JSB entry point 
6 SIDE EFFECTS: 
6 i JSBs to the JSB entry point so may signal any of its errors or 
6 have any of its side effects. 
65] i 
6 
° BEGIN 
§ MAP 
SRC_DESC : REF S$STRSDESCRIPTOR, 
? DEST_DESC : REF SSTRSDESCRIPTOR; 
7 RETURN STRSLEFT_R8 (DEST_DESC ([0,0,0,0], 
§ 7% -" “SRC_BESC 69676769: 
75 . -END_POS); 
5 76 END; ‘End of STRSLEFT 
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ITLE STRSLEFT 
bENE CeOv aN 

XTRN STRSCOPY_R_R8, STR$_NORMAL 
-EXTRN STRS_ILLSTRPOS 


-PSECT _STRSCODE,NOWRT, SHR, PIC,2 


rege 


01FC 00000 ENTRY STRSLEFT, Save R2,R3,R4,R5,R6,R7,RB 
52 pO 00002 MOVL § @END_POS, R2 
50 4 AC 70 00006 MOVO DEST “DESC, RO 
0000v 8 0000A BSBW = STRSCEFT_RB 
04 00000 RET 


; Routine Size: 14 bytes, Routine Base: _STRSCODE + 0000 
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GLOBAL ROUTINE STRSLEFT_R8 (¢ ! extract the left substring 
DEST_DESC, ! Pointer to destination Gescr iptor 
SRC_BESC, ' Pointer to source descriptor 
END_POS ' Last character to be included 


) : STRSJSB_LEFT = 


++ 
FUNCTIONAL DESCRIPTION: 


This routine extracts che Ghareeters starting at the leftmost 
character (character position 1) and continuing through the 
charecter position spec fied oY the input and Copies hat 
substring to the destination string (by JSB to STRSCOPY_R_R8) 
according to the syntax of the class of the destination string. 
If the — character position is > the Length of the input 


string, then the pengsh of the input string is used. If the 
anpyt character position is < 1, the destination becomes a null 
string. 

FORMAL PARAMETERS: 
DEST_DESC.wt.dx pointer to destination string descriptor 
SRC_BESC.rt.dx pointer to source string descriptor 
END_POS.rl.v ey ag last character position to 

nc lude 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


SS$_NORMAL Success 

STRS_ILLSTRPOS Character position reference outside of string 
STRS_ILLSTRSPE End pos < start pos, or length too long 
STRS_NEGSTRLEN Negative length Supe lied, 0 used 

STRS$_TRU runcation occured in copying to destination 


SIDE EFFECTS: 


(Warning) 
May gtonel: 
STRS$_FATINTERR Fatal internal error 
STRS_ILLSTRCLA it tegat (or meaeeres string class 
STRS_INSVIRMEM Insufficient virtual memory for 


reallocation of dynamic string 


BEGIN 


_ 
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STRSLEFT 185 =1984 01:40:4 AX=11 Bliss-32 V4.0-742 p 
Ott 1ereee= TSBs 9b:28:G8 = HANEY Ok segcFe ves 05 tse, age 48 


> 244 1434 LOCAL 

> 245 1435 IN_LEN ! Length of source string 

> 26 14 § IN-ADDR i addr of ist b te of source data 
> 26 14 COPY STATUS, i status from STRSCOPY_R_R 

> 248 14 8 RETURN_ STATUS, ' keep track of return status 

> 249 14 COPY_LENGTH; ! Length to be copied 

; 29 1440 

3 1 1441 MAP 

; 26 1206 SRC_DESC =: REF S$STRSDESCRIPTOR, 

; 2? 1227 DEST_DESC : REF SSTRSDESCRIPTOR; 

: 22 rk RETURN_STATUS = 1 ; ! assume success to follow 

3 gor 1447 + 

; 28 1963 Calculate the length and address of first byte of source string. 

3 et 1e29 SSTRSGET_LEN_ADDR ( SRC_DESC, IN_LEN, IN_ADDR) ; 

3 o¢ e286 + 

; 145 ! Compute the correct substring and use the length and address of 

; 264 1454 ! the substring to copy to dest. The length must be greater than or 

: 265 1455 ' equal to 0 and is the smaller of the length specified by END_POS which 
; 266 1456 ! was input and the source etring length. Return STRS_ILLSTRPOS if 

: 267 1457 ! END_POS does not meet those criteria. 

> 268 1458 te 

: 269 1459 

: 270 1460 COPY_LENGTH = ! compute the Length 

3 ani 1461 EGIN 

: si¢ 1066 IF .IN_LEN LSS .END_POS 

: a 1463 3 THEN 

; 274 1464 4 BEGIN 

3 $2 1002 : RETURN_STATUS = STRS_ILLSTRPOS; ! input Length is too long 
S are 1467 4 - IN_LEN ! use srclen and remember 

; 278 1468 4 ! error 

: 279 1469 4 END 

: 280 1470 4 

; 281 1471 ; ELSE 

3 oes 16% -END_POS ! use specified end position 
; a 147 D; 

3; 6284 1474 

3 eo 1475 IF .COPY_LENGTH LSS 0 THEN 

; 286 1476 BEGIN 

3 st 1477 COPY_LENGTH = 0; ! input length is negative 

; 288 1478 RETURN_STATUS = STRS_ILLSTRPOS; ! use 0 and remember error 

; 390 1028 END; 

: 3 ie COPY_STATUS = STRSCOPY_R_R& ( .DEST_DESC, .COPY_LENGTH, .IN_ADDR ); 
; $38 14 5 IF .COPY_STATUS NEQ SS$_NORMAL 

3: 294 ion THEN RETORN_STATUS = .COPY_STATUS; ! copy truncated, or severe 

s @e95 1485 ! error, return new status 

; 38 1487 ! instead of previous value 

; 98 1488 SSTRSSIGNAL_FATAL (RETURN_STATUS); ! if fatal error, signal 

> 299 1489 RETURN .RETORN_STATUS; 

; 300 1490 END; ‘End of STRSLEFT 


STRSLEFT 
1-011 
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; Routine Size: 


6E 


000000006 


106 bytes, 


Routine 


Bytes 
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Base: _STRSCODE 


PSECT SUMMARY 


1 
1 


71986 92:40:07 


AX-11 BL iss-32 V4.0-742 
LIBRTL.SRCJSTRL 


STRSANALYZE_SDESC_R1 
LIBSSTOP 


2 R4 
SRC_DESC), #2 


DESC), IN_LEN 
T_DESCS, IR_ADDR 


mao wD 
ao 


DESC, RO 
SANALYZE_SDESC_R1 
N-LEN, END_POS 


MSTRS$_ILLSTRPOS, RETURN_STATUS 
INLLER, COPY_LENGTH 


END_POS, COPY LENGTH 


COPY LENGTH 
MSTRS_ILLSTRPOS, RETURN_STATUS 


IN 

DEST DESC, RO 
RB 

COPY STATUS, #1 

COPY STATUS, RETURN_STATUS 

RETURN_STATUS, 

#0, #3, RETURN_STATUS, #4 

RETURN STATUS 


#1, LIBSSTOP 
RETURN_STATUS, RO 


Wi DONS SW aD 
AZ ADAN-“oe-~—0O 


'End of module 


eEXTRN 

«EXTRN 
DO 00000 STRSLEFT per’ 

D 0000 PUSHL 
pf be CMPB 
1A 9 BGTRU 
HS O98 MOVZWL 
Dd 3 MOVL 
11 0001 BRB 
DO 00014 1$: MOVL 
Se gh 
D1 $00 ° 2$: CMPL 
oe sh 
Rise |e 
DO 00031 3$: MOVL 
18 00034 4$: BGEQ 
0 00038 move 
DO OOO3F 5$: MOVL 
dO panes MOVL 
16 Bebe JSB 
D1 00048 CMPL 
13 ied BEQL 
DO 0005 MOVL 
E8 Bae2 6$: BLBS 
Fo 0056 CMPZV 
1 83028 BNEQ 
DD 0005D PUSHL 
FB OOOSF CALLS 
DO 00066 7$ MOVL 
05 00069 RSB 
+ OOOE 
Attributes 


EFT.B32;1 


See Se Se Be Se Se Be Be Be Be Se Be Se Se Be Se Be Se Se Be Be Se Be Ge Se Se Fe Se Se Se Se 


i hal Hecho QLGG:68  WMGLL SASH vt 96882, 


_STRSCODE 120 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


soceeee= Symbols ------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$D0UA28: CSYSLIBISTARLET.L32;1 9776 7 0 581 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:STRLEF T/OBJ=OBU$:STRLEFT MSRC$:STRLEF T/UPDATE=(ENHS$: STRLEFT) 
Size: 120 code + 0 data bytes 
un 00:05.6 
E Time: ete 
Lines/CPU Min: 16151 
yovense/CPU~Aite: 34929 


ome Used: 80 pages 
Compilation Complete 
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